home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / library_lib.lha / Library / LibInit.d < prev    next >
Text File  |  2001-11-14  |  369b  |  20 lines
  1. OPT    NOEXE
  2.  
  3. MODULE    'powerd/library'
  4.  
  5. EPROC customInitLib(base:PTR TO LibGenBase)(LONG)
  6. EPROC libExpunge(base:PTR TO LibGenBase IN a6)(LONG)
  7.  
  8. PROC libInit(base:PTR TO LibGenBase IN d0,segment IN a0)(PTR TO LibGenBase)
  9.  
  10.     base.segment:=segment
  11.  
  12.     InitSemaphore(base.semaphore) -> this is optional
  13.  
  14.     IF customInitLib(base)=0
  15.         libExpunge(base)
  16.         base:=0
  17.     ENDIF
  18.  
  19. ENDPROC base
  20.